home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib18.dsk / QUICKSORT II DEMO1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  858b  |  27 lines
  1. 1  REM  ***********************
  2. 2  REM  * QUICKSORT II  DEMO1 *
  3. 3  REM  * BY CORNELIS BONGERS *
  4. 4  REM  * COPYRIGHT (C)  1984 *
  5. 5  REM  * BY MICROSPARC, INC. *
  6. 6  REM  * LINCOLN, MA.  01773 *
  7. 7  REM  ***********************
  8. 8  TEXT : HOME : VTAB 3: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC. **": PRINT 
  9. 9  IF  PEEK(1015) < >140  THEN  PRINT  CHR$(4);"BRUN QUICKSORT II"
  10. 10  LET A =  RND( -1): REM  SEED RANDOM GENERATOR
  11. 20  LET B = 5:N1 = 3:N2 = 5: REM  CONSTANTS
  12. 30  DIM A%(10,10)
  13. 40  FOR I = 0 TO 10: FOR J = 0 TO 10
  14. 50  LET A%(I,J) = 5 * RND(1)
  15. 60  NEXT : NEXT 
  16. 1000  PRINT "ROW/COL";
  17. 1010  FOR J = 0 TO 10
  18. 1020  PRINT  TAB( 9 +J *3);J;
  19. 1030  NEXT 
  20. 1040  PRINT : PRINT 
  21. 1050  FOR I = 0 TO 10: FOR J = 0 TO 10
  22. 1060  FOR I = 0 TO 10
  23. 1070  PRINT I; TAB( 9);
  24. 1080  FOR J = 0 TO 10
  25. 1090  PRINT  TAB( 9 +J *3);A%(I,J);
  26. 1100  NEXT J: PRINT : NEXT I
  27. 1110  END